﻿Imports Clases
Public Class frmMenus
    Private productoOfertaDia As Producto 'Variable para la oferta del dia en el caso de que exista
    ''' <summary>
    ''' Preguntar cuando salgamos si realmente queremos salir de la aplicación
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Menus_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim men As DialogResult = MessageBox.Show("¿Desea cerrar la sesión?", "Cerrar Sesión", MessageBoxButtons.YesNo)
        If men = Windows.Forms.DialogResult.No Then e.Cancel = True
    End Sub
    ''' <summary>
    ''' Cuando el formulario se carga
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub Menus_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Dependiendo el usuarioActivo se hará vibible un menú u otro
        MenuStrip1.Items(0).Visible = usuarioActivo.GetType = GetType(Administrador)
        MenuStrip1.Items(1).Visible = usuarioActivo.GetType = GetType(Cliente)
        Me.Text &= usuarioActivo.Nombre
        'If usuarioActivo.GetType = GetType(Administrador) Then
        '    MenuStrip1.Items(1).Visible = False
        'Else
        '    MenuStrip1.Items(0).Visible = False
        'End If
        If usuarioActivo.GetType = GetType(Cliente) Then
            For i As Integer = 0 To misOfertas.Ofertas.Count - 1
                If misOfertas.Ofertas(i).Fecha = Today Then
                    Dim ofertaMensaje As DialogResult = MessageBox.Show("Oferta del día: " & misOfertas.Ofertas(i).Nombre & "¿Desea aplicar el descuento?", "Oferta del día", MessageBoxButtons.OKCancel)
                    If ofertaMensaje = Windows.Forms.DialogResult.OK Then

                        Dim listaOfertapedido As New List(Of ProductoPedido) From {New ProductoPedido(misOfertas.Ofertas(i).Producto, misOfertas.Ofertas(i).Precio, misOfertas.Ofertas(i).Cantidad)}
                        Dim men As String = misPedidos.Añadir(New Pedido(usuarioActivo.Nombre, Today, listaOfertapedido))
                        If men <> "" Then
                            MessageBox.Show(men, "ATENCIÓN")
                        End If
                    End If
                End If
            Next
        End If
    End Sub
    ''' <summary>
    ''' Mostrar formulario para que los clientes hagan un pedido
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub PedidosToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles PedidosToolStripMenuItem1.Click
        frmHacerPedidos.Show()
    End Sub
    ''' <summary>
    ''' Salir de la aplicación
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub SalirToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles SalirToolStripMenuItem1.Click
        Me.Close()
    End Sub
    ''' <summary>
    ''' Salir de la aplicación
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub SalirToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close()
    End Sub
    ''' <summary>
    ''' Abrir formulario para administrar las ofertas
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub OfertasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OfertasToolStripMenuItem.Click
        frmOfertas.Show()
    End Sub
    ''' <summary>
    ''' Abrir formulario para administrar las mesas
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub MesasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MesasToolStripMenuItem.Click
        frmMesas.Show()
    End Sub
    ''' <summary>
    ''' Abrir formulario para administrar los productos
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ProductosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ProductosToolStripMenuItem.Click
        frmProductos.Show()
    End Sub
    ''' <summary>
    ''' Abrir formulario para administrar los clientes
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub ClientesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ClientesToolStripMenuItem.Click
        frmClientes.Show()
    End Sub
    ''' <summary>
    ''' Abrir formulario para que el administrador vea los pedidos existentes
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks></remarks>
    Private Sub PedidosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PedidosToolStripMenuItem.Click
        frmVerPedido.Show()
    End Sub

    Private Sub ArchivoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ArchivoToolStripMenuItem.Click

    End Sub
End Class